home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / temp.frm < prev    next >
Text File  |  1995-05-08  |  3KB  |  112 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Test Temp functions"
  4.    ClientHeight    =   2925
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   5085
  8.    Height          =   3330
  9.    Left            =   1035
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2925
  13.    ScaleWidth      =   5085
  14.    Top             =   1140
  15.    Width           =   5205
  16.    Begin TextBox Text3 
  17.       Height          =   495
  18.       Left            =   1680
  19.       TabIndex        =   5
  20.       Text            =   "Text3"
  21.       Top             =   1920
  22.       Width           =   3015
  23.    End
  24.    Begin CommandButton Command3 
  25.       Caption         =   "Environ$"
  26.       Height          =   495
  27.       Left            =   240
  28.       TabIndex        =   4
  29.       Top             =   1920
  30.       Width           =   1215
  31.    End
  32.    Begin TextBox Text2 
  33.       Height          =   495
  34.       Left            =   1680
  35.       TabIndex        =   3
  36.       Text            =   "Text2"
  37.       Top             =   1200
  38.       Width           =   3015
  39.    End
  40.    Begin CommandButton Command2 
  41.       Caption         =   "Temp File"
  42.       Height          =   495
  43.       Left            =   240
  44.       TabIndex        =   1
  45.       Top             =   1200
  46.       Width           =   1215
  47.    End
  48.    Begin TextBox Text1 
  49.       Height          =   495
  50.       Left            =   1680
  51.       TabIndex        =   2
  52.       Text            =   "Text1"
  53.       Top             =   480
  54.       Width           =   3015
  55.    End
  56.    Begin CommandButton Command1 
  57.       Caption         =   "Temp Drive"
  58.       Height          =   495
  59.       Left            =   240
  60.       TabIndex        =   0
  61.       Top             =   480
  62.       Width           =   1215
  63.    End
  64. End
  65. '  GetTempFileName() Flags
  66. '
  67. Const TF_FORCEDRIVE = &H80
  68.  
  69. Declare Function GetTempDrive Lib "Kernel" (ByVal cDriveLetter As Integer) As Integer
  70. Declare Function GetTempFileName Lib "Kernel" (ByVal cDriveLetter As Integer, ByVal lpPrefixString As String, ByVal wUnique As Integer, ByVal lpTempFileName As String) As Integer
  71.  
  72. Sub Command1_Click ()
  73.   X% = 0
  74.   TempDrive% = GetTempDrive%(X%)
  75.   Text1.Text = Chr$(TempDrive% Mod 256) + Chr$(TempDrive% \ 256)
  76. End Sub
  77.  
  78. Sub Command2_Click ()
  79.   DriveLetter% = Asc("C") 'Or TF_FORCEDRIVE
  80.   PrefixString$ = "BAG"
  81.   Unique% = 0  'if 0 uses time
  82.   TempFileName$ = Space$(144)
  83.   UniqueNbr% = GetTempFileName(DriveLetter%, PrefixString$, Unique%, TempFileName$)
  84.   Text2.Text = RTrim$(TempFileName$)
  85. End Sub
  86.  
  87. Sub Command3_Click ()
  88.   E$ = Environ$("TEMP")
  89.   If Right$(E$, 1) <> "\" Then E$ = E$ + "\"
  90.   TestFileName$ = "TEST0001.TMP"
  91.   Ctr% = 1
  92.   Debug.Print TestFileName$
  93. Loop1:
  94.   If Len(Dir$(E$ + TestFileName$)) <> 0 Then
  95.     Text3.Text = "File: " + TestFileName$ + " exists"
  96.     Debug.Print E$ + TestFileName$
  97.     Ctr% = Ctr% + 1
  98.     Mid$(TestFileName$, 5, 4) = Format$(Ctr%, "0000")
  99.     GoTo Loop1
  100.   Else
  101.     Debug.Print E$ + TestFileName$
  102.     Text3.Text = "File: " + TestFileName$ + " doesn't exist"
  103.     Open E$ + TestFileName$ For Output As #1
  104.     Close 1
  105.   End If
  106. End Sub
  107.  
  108. Sub Form_Click ()
  109.   End
  110. End Sub
  111.  
  112.